home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Visual Basic new SourceCode and Projects / AlbumScreenSaver / PROP.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-08-24  |  3.6 KB  |  129 lines
  1. VERSION 5.00
  2. Begin VB.Form sai 
  3.    BackColor       =   &H00000000&
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "Form1"
  6.    ClientHeight    =   7200
  7.    ClientLeft      =   0
  8.    ClientTop       =   0
  9.    ClientWidth     =   9600
  10.    Icon            =   "prop.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   7200
  13.    ScaleWidth      =   9600
  14.    ShowInTaskbar   =   0   'False
  15.    StartUpPosition =   3  'Windows Default
  16.    WindowState     =   2  'Maximized
  17.    Begin VB.Timer Timer2 
  18.       Interval        =   1
  19.       Left            =   1920
  20.       Top             =   2310
  21.    End
  22.    Begin VB.Timer Timer1 
  23.       Enabled         =   0   'False
  24.       Left            =   810
  25.       Top             =   2220
  26.    End
  27.    Begin VB.Image Image4 
  28.       Height          =   810
  29.       Left            =   -3390
  30.       Picture         =   "prop.frx":08CA
  31.       Top             =   5310
  32.       Width           =   3465
  33.    End
  34.    Begin VB.Image Image2 
  35.       Height          =   825
  36.       Left            =   2640
  37.       Picture         =   "prop.frx":9BDC
  38.       Top             =   3450
  39.       Width           =   4050
  40.    End
  41.    Begin VB.Image Image3 
  42.       Height          =   1170
  43.       Left            =   2460
  44.       Picture         =   "prop.frx":14A92
  45.       Top             =   1170
  46.       Width           =   4125
  47.    End
  48.    Begin VB.Image Image1 
  49.       Height          =   1335
  50.       Left            =   780
  51.       Top             =   690
  52.       Width           =   1395
  53.    End
  54. Attribute VB_Name = "sai"
  55. Attribute VB_GlobalNameSpace = False
  56. Attribute VB_Creatable = False
  57. Attribute VB_PredeclaredId = True
  58. Attribute VB_Exposed = False
  59. ' Hi Folks this application is written by
  60. ' Nagalla Anil Choudary
  61. ' Software Engineer
  62. ' s/o N.Ram Babu
  63. ' D.K.Pallem Bapatla-522 101
  64. ' A.P  , India
  65. ' u can use this application as a photo album also
  66. ' You can reproduce , customize this code in any manner
  67. ' If u satisfy or modify please leave your suggestions
  68. ' Happy programming
  69. Dim n, tt As Integer
  70. Dim oldx, oldy As Integer
  71. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  72. EndScreenSaver
  73. End Sub
  74. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  75. EndScreenSaver
  76. End Sub
  77. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  78. If oldx = 0 And oldy = 0 Then
  79.     GoTo anil
  80. End If
  81. If x <> oldx Or y <> oldy Then
  82.     EndScreenSaver
  83. End If
  84. anil:
  85.     oldx = x
  86.     oldy = y
  87. End Sub
  88. Private Sub Form_Paint()
  89. Timer1.Interval = Val(prop.Text1.Text)
  90. End Sub
  91. Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  92. EndScreenSaver
  93. End Sub
  94. Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  95. If oldx = 0 And oldy = 0 Then
  96.     GoTo anil
  97. End If
  98. If x <> oldx Or y <> oldy Then
  99.     EndScreenSaver
  100. End If
  101. anil:
  102.     oldx = x
  103.     oldy = y
  104. End Sub
  105. Private Sub Timer1_Timer()
  106. If n = prop.List1.ListCount Then
  107.     n = 0
  108. End If
  109.     Image1.Visible = False
  110.     Image1.Picture = LoadPicture(prop.List1.List(n))
  111.     Randomize
  112.     Image1.Left = Rnd * (9000 - Image1.Width)
  113.     Image1.Top = Rnd * (7000 - Image1.Height)
  114.     Image1.Visible = True
  115.     n = n + 1
  116. End Sub
  117. Private Sub Timer2_Timer()
  118. Image4.Left = tt - Image4.Width
  119. tt = tt + 20
  120. If tt > 13000 Then
  121.     Image3.Visible = False
  122.     Image2.Visible = False
  123.     Image4.Visible = False
  124.     Timer1.Enabled = True
  125.     Timer1.Interval = Val(prop.Text1.Text)
  126.     Timer2.Enabled = False
  127. End If
  128. End Sub
  129.